00010 



XLIST 
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00030 

00040 EXTERNAL APRCHN, APRCHL , CH6SAC , JBTADR, JOB, JOBAC, JOBDAT. JOBN 

00050 EXTERNAL JOBPDP , USRDDT, USRPDP, JOBDDT 

00060 EXTERNAL lORELS, JBTSTS, JOBADR, JOBCDP, JOBPC, JOBREL, JOBSA, JOBSYM 

00070 EXTERNAL MESPNT , QUaNTI, JOBOAC , TTYSTR, STOPU, SCHEDF 

00080 EXTERNAL UXIT, lOCOMP, DCREQ, DCAVAL, DTREQ .OTAVAL , MTREQ, MTAVAL 

00090 EXTERNAL CHlX I T . CH2X I T, CH3X IT. CH4X IT, CH5X IT , CH6X IT, CH7X IT 

00100 EXTERNAL JOBFF , MJOBPO, JOBPDL , I OCOMP, PJOBN, USRLO, USRLOl, USRHI 

00110 EXTERNAL TTYFNU, RSCHED 
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00120 

00130 JEXIT UUO ROUTINE 

00140 

00150 INTERNAL EXIT 

00160 EXTERNAL I ORELS, TTYFNU, MESPNT, lOK ILL 

00170 

000000 260140 000000 00180 EXIT: PUSHJ PDP.IORELS ;RELEASE ALL DEVICES 

000001 260140 000000 00190 PUSHJ POP, TTYFNU 

000002 201100 000005' 00200 MOVEI TACl.EXMESS 

000003 260140 000000 00210 PUSHJ POP. MESPNT 

000004 254000 000030' 00220 JRST HOLD ;STOP THIS USER IMMEDIATELY 

00230 

00240 EXMESS: ASCIZ / 

000005 064250 554222 00250 EXIT 

000006 520321 200000 00260 / 

00270 ;RESET UUO ROUTINE 

00280 

00290 INTERNAL RESET 

00300 

000007 260140 000000 00310 RESET: PUSHJ PDP.IOKILL ;RELEASE ALL DEVICES 

000010 260140 000230' 00320 PUSHJ PDP.SETUSR ;CLEAR PART OF JOB DATA AREA 

000011 254000 000000 00330 JRST UXIT ;AND RETURN TO CALLER 

00340 
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000012 
P100013 
000014 
000015 
000016 
000017 

000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 



000030 
000031 

000032 
000033 



000034 
000035 
000036 



200103 000000 
135200 000266' 
261140 000001 
260140 000032" 
262140 000001 
254001 000020' 



254000 
254000 
254000 
254000 
254000 
254000 
254000 
254000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



200200 000000 

260140 000243' 

260140 000000 

260140 000000 



205040 
436044 
254000 



002000 

000000 

000071' 



00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
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;COMMON ERROR HANDLING ROUTINES 

;DEVDAT must be set up to TTY dob ON WHICH TO PRINT ERROR MESSAGE 

;HERE on ERROR DETECTED AT INTERRUPT SERVICE LEVEL 
;0(PDP) CONTAINS ADR. OF DEVICE DATA BLOCK CAUSING ERROR 

;CaLL: MOVE TaC pi CHANNEL NO, DETECTING ERROR 
; JRST HOLDI 

INTERNAL HOLD I , HOLD. HOLD 1 1 

HOLDI : 



MOVE TACl, 0(PDP) ;DEVICE DATA BLOCK 

LOB ITEM, CPOINT 9, DEVCHR ( TACl ) , 8] ;GET JOB NUMBER 



HOLDIl 



chntab; 



JSAVE PI CHANNEL NO. 

;G0 RESTORE ACS AND DISMISS CHANNEL 
; INTERRUPT ON CLOCK CHANNEL , RESCHEDULE 



PUSH POP, TAC 
PUSHJ POP, HOLDSB 
POP POP, TAC 
JRST CHNTAB(TAC) 

JRST RSCHED 

JRST CHIXIT 

JRST CH2XIT 

JRST CH3XIT 

JRST CH4XIT 

JRST CH5XIT 

JRST CH6XIT 

JRST CH7XIT 

;HERE on ERROR FROM UUO LEVEL, ERROR MESSAGE ALREADY IN TTY BUFFER 

;dat=byte pointer to end of message; devdat=tty dev. data block 

hold: move item, JOB JNO. OF THIS JOB 

PUSHJ PDP.WAITl ;WAIT UNTIL TTY FINISHED 



HOLDSR: PUSHJ PDP.CRLF 

PUSHJ PDP. TTYSTR 
EXTERNAL CRLF 



;START UP TTY TO PRINT ERROR MESSAGE 



ROUTINE TO STOP USER AND FLAG AS ERROR STOP 
CALL: MOVE ITEM, JOB NUMBER 
PUSHJ PDP, ESTOP 



INTERNAL ESTOP 

ESTOP: MOVSI TACJERR 

lORM TAC, JBTSTS(ITEM) 
JRST STOPl 



;SET ERROR BIT IN JOB STATUS 
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000037 260140 000000' 

000040 550051 000002 

000041 402011 000002 

000042 550240 000007 

000043 270240 000001 

000044 272045 000000 

000045 504240 000007 

000046 554045 000000 

000047 313040 000000 

000050 200040 000047' 

000051 207000 000005 

000052 270040 000005 

000053 270240 000267' 

000054 251241 000000 

000055 200051 000000 

000056 202040 000000 

000057 260140 000230' 

000060 260140 000001' 

000061 201100 000064' 

000062 260140 000003' 

000063 254000 000030' 



000064 064251 447602 

000065 422132 220214 

000066 446351 151620 

000067 426101 505000 



00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 



01170 



, BLOCK TANSFER PROGRAM OVER LOADER 

INTERNAL LDROLT 
EXTERNAL USRREL 



LDRBLT 



PGADR=2 



;AC CONTAINING BEGINNING OF PROGRAMCLOA 



MS 

;no 



PUSHJ POP, lORELS 

HRR2 TAC, PGADR (JOAT) 

SETZM PGADR(JDAT) ;THEN 

HRRZ DAT, PROG 

ADD DAT, TAC 

ADDM TACJOBSYMCDAT) 

HRL DAT, PROG 

HLRZ TAC,JOBSA(OAT) 

CAMLE TAC, USRREL 

MOVE TAC, USRREL 

MOVSS DAT 

ADD TAC, DAT 

ADD DAT,CXWD 30,303 

BLT DAT, (TAC) 

MOVE TAC,JOBODT(JDAT) 

MOVEM TACUSRDDT 

PUSHJ PDP, SETUSR 

PUSHJ PDP.TTYFNU 

MOVEI TAC1,LDRMES 

PUSHJ PDP,MESPNT 

JRST HOLD 



JADO OFFSET TO SYMBOL TABLE P 
CLEAR SO SYSMAK WILL STILL WORK 



HIGHEST DESTINATION STILL 
MAKE SURE IT IS. 



IN USER A 



;MOVE PROGRAM DOWN 



LDRMES: ASCIZ / 
LOADER FINISHED 
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POP, 



PI00070 200200 000030 



000071 
000072 
000073 
000074 
000075 
000076 
000077 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 



000112 
000113 
000114 



205040 
700600 
616044 
254000 
413044 
700600 
603040 
370000 
603040 
370000 
603040 
370000 
700600 
332000 
254000 
312200 

;no 



200000 

000400 

000035' 

000105' 

000073' 

000200 

040000 

000000 

020000 

000000 

010000 

000000 

000200 

000000 

000112' 

000070' 



700600 000400 
476000 000000 
700600 000000 



000115 263140 000000 



01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 

01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 



INTERNAL STOPl, ST0P2, CONTl, STARTl 

PION=200 
PIOFF=400 

;R0UTINE to put current job in IO WAIT 

{routine to stop current job 
;may be called from any level 
;call; pushj pop, stop0 

; RETURN 

{PRIORITY CHANNEL THAN CLOCK, 



{RETURN HERE IMMEDIATELY, IF 
OTHERWISE RETURN WHEN JOB IS 



CALLED FRO 
RUNABLE AG 



INTERNAL STOP0 

STOP0: MOVE ITEM, JOB 



{CURRENT JOB NUMBER 



ROUTINE 
CALL: 



TO STOP ANY JOB FROM BEING SCHEDULED 



MOVE ITEM, JOB NUMBER 

PUSHJ POP, STOPl 

EXIT {RETURN HERE IMMEDIATELY, IF CALLED 
PRIORITY CHANNEL THAN CLOCK, OTHERWISE RETURN WHEN JOB 
CALLED WHEN CONTROL C TYPED OR ON ERROR MESSAGES 



FROM HIGHER 
IC RUNABLE 



STOPl: MOVSI TAC, RUN 

CONO PI, PIOFF {DONE AT 

TDNN TAC, JBTSTS(ITEM) 

JRST STOPA {NO 

ANDCAB TAC, JBTSTS(ITEM) 

CONO PI, PION 

TLNE TAC, DTW 

SOS DTREQ {YES, 

TLNE TAC, DCW 

SOS DCREQ 

TLNE TACMTW {MAG TAPE 

SOS MTREQ 
STOPA: CONO PI, PION 

SKIPE SCHEDF 

JRST ST0P2 

CAME ITEM, JOB 



INTERUPT LEVEL HIGHER THAN QT 
{IS RUN BIT ON IN JOB STATUS 

{YES, SO CLEAR IT 



{WAITING TO USE DECTAPE 
REDUCE REQUEST COUNT 
{DATA CONTROL 



{MAKE SURE PI ON 

{IS CLOCK IN THE MIDDLE OF SCHEDULING 
{YES, MAKE SURE THIS JOB WONT RUN 
{NO, IS THIS JOB CURRENT USER 



{YES, MAKE CLOCK RESCHEDULE 

ROUTINE TO CAUSE CLOCK TO RESCHEDULE 
CALL : 

PUSHJ POP, ST0P2 

EXIT {RETURN WHEN JOB RUNABLE AGAIN 



EXTERNAL PICLK 

ST0P2: CONO PI, PIOFF 
SETOM STOPU 
CONO PI, PICLK 

POPJ POP, 



{PREVENT CLOCK INTERRUPT 

{SET FLAG FOR CLOCK ROUTINE 

{REQUEST CLOCK INTERRUPT AND TURN PI ON 

{CLOCK WILL TRAP IMMEDIATELY IF AT UUO 

{RETURN HERE WHEN JOB RUNABLE AGAIN 
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000116 
000117 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000130 
000131 



000132 
000133 



000134 
000135 



261140 
550444 
201111 
251111 
205100 
541111 
554043 
261100 
201051 
202101 
262140 
405100 



000002 

000000 

000000 

000000 

000000 

000000 

000000 

000001 

000120' 

000003 

000002 

777777 



260140 000140' 
254000 000000 



260140 000140' 
254000 000000 



000136 254000 000133' 



01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 



SUBROUTINE TO SETUP A MONITOR JOB TO BE RUN 
JOB MUST HAVE CORE ASSIGNED 
call: move ITEM, JOB NUMBER 

HRRI TACl, ADDRESS OF MONITOR JOB(A SUBROUTINE) 

HRLI TACl, RETURN ADDRESS WHEN JOB FINISHED 

PUSHP PDP, MONJOB 

RETURN IMMEDIATELY IF CALLED FROM CLOCK LEV OR HIGHER 

JALL ACS WILL BE SAVED FOR THE MONITOR JOB 

INTERNAL MONJOB 

EXTERNAL JOBDAC, JOBDH I , JOBPDP, MJOBPD, JOBPDL, JBTADR 



JADDRESS OF JOB DATA AREA 
JSAVE 0-17 IN DUMP ACS 
; IN JOB DATA AREA 



AS FIRST ITEM 



monjob: PUSH PDP, TACl ;save ARG. 

HRRZ JDAT, JBTADR(ITEM) 

MOVEI TACl, JOBDAC(JDAT) 

BLT TACl, JOBOHKJDAT) 

MOVSI TACl, MJOBPD ;SET UP PD LIST IN JOB DATA AREA 

HRRI TACl, JORPDL(JDAT) 

HLR2 TAC, (PDP) ;WITH RETURN 

PUSH TACl, TAC 

MOVEI TAC, JOBDAC(JDAT) 

MOVEM TAC1,PDP(TAC) 

POP PDP. TACl ;SET TO RUN 

ANDI TACl, 777777 ;FALL INTO STARTU 



ROUTINE TO START A JOB AND LEAVE CONSOLE IN COMMAND MODE 
CALL: MOVE TACl, START PC 

MOVE ITEM, JOB NUMBER 
PUSHJ PDP, STARTU 
RETURN IMMEDIATELY 
INTERNAL STARTM 
EXTERNAL TTYURC 

STARTH: PUSHJ PDP, STARTl 
JRST TTYURC 



;START WITH TTY IN USER MODE 

INTERNAL STARTU 
EXTERNAL TTYSET 

STARTU: PUSHJ PDP, STARTl 
JRST TTYSET 



;SET SCANNER TO CALL SETRUN WHEN 
;CR-LF AND INITIALI2E TTY 



INTERNAL CONTM 
EXTERNAL TTYURC 

CONTM: JRST TTYURC 

ROUTINE TO CONTINUE A JOB FROM 
call: move item, JOB NUMBER 
PUSHJ PDP, CONTU 
RETURN IMMEDIATELY 



COMMAND MODE 



000137 254000 000000 



02310 
02320 
02330 
02340 
02350 



INTERNAL CONTU 
EXTERNAL TTYUSR 



CONTU: 



JRST TTYUSR 



;SET SCANNER TO CALL SETRUN WHEN CR-LF 
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000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000150 
000151 



200051 
202111 
603100 
603040 
254000 
205111 
541111 
251111 
205100 
412104 



000000 

000140' 

010000 

010000 

000150' 

000000 

000126' 

000121' 

172000 

000075' 



000152 263140 000000 



02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 



ROUTINE TO SET JOB STATE TO BE SCHEDULED TO RUN 
WITH SPECIFIED STARTING ADDRESS INCLUDING PC FLAGS 
call: move TACl, starting PC 

MOVE ITEM, JOB NUMBER 

MOVE JDAT, ADDRESS OF JOB DATA AREA(THERE MUST 

PUSHJ PDP, STARTl 

; EXIT RETURN HERE IMMEDIATELY 



BE ONE) 



STARTl: 



START2 



ROUTINE 
CALL: 



CONTi: 



MOVE TAC, JOBPC(JDAT) 
MOVEM TACl, JOBPC(JDAT) 
TLNE TAC1,USRM0D 

TLNE tacusrmod 

JRST START2 

MOVSI TACl, (JDAT) 

HRRI TACl, JOBDAC(JDAT) 

BLT TACl, JOBDHI (JDAT) 

MOVSI TACl, JERR+DCW+DTW+MTW+JIOW 

ANDCAM TACl, JBTSTS(ITEM) MN 

TO CONTINUE ANY JOB AT CURRENT PC 

MOVE ITEM, JOB NUMBER 

PUSHJ PDP, CONTI 

EXIT RETURN IMMEDIATELY 



POPJ PDP, 



JGET OLD PC 

;STORE NEW PC 

MS NEW PC IN USER AREA? 

;YES, WAS OLD PC IN USER 

;yes,dump ACS are his 

;N0, UUO ACS ARE HIS 

;move them to dump acs 



AREA 



JOB 



;CLEAR WAIT BITS 
STATUS WORD 
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000153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 



205040 
437044 
607040 
254000 
357000 
476000 
607040 
254000 
357000 
476000 
607040 
254000 
357000 
476000 
603040 
350000 
201040 
542044 
332000 
263140 
254000 



200000 

000151' 

020000 

000161' 

000102' 

000000 

040000 

000165' 

000100' 

000000 

010000 

000171' 

000104' 

000000 

400000 

000000 

000000 

000154' 
000110' 
000000 
000112' 



02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 



routine to set job status run bit 
call: move item, job number 
pushj pdp,setrun 



SETRUN: 



C0NT2: 



C0NT3: 



C0NT4: 



INTERNAL SETRUN 

MOVSI TACRUN 

IORB TACJBTSTSdTEM) 



MS JOB WAITING FOR DATA CONTROL? 

;no 

;YES, INCREMENT REQUEST 
;AND set DC AS AVAIL IF 

;dectape? 
;no 



COUNT 
NOT IN 



USE 



:MAG tape? 



TLNN TACDCW 

JRST C0NT2 

AOSG DCREQ 

SETOM DCAVAL 

TLNN TACDTW 

JRST C0NT3 

AOSG DTREO 

SETOM DTAVAL 

TLNN TACMTW 

JRST C0NT4 

AOSG MTREQ 

SETOM MTAVAL 

TLNE TACIOWS 

AOS lOCOMP 

MOVEI TAC.QUANTl ;SET TIME TO RUN FOR STRAIGHT QUEUE COM 

HRRM TACJBTSTSdTEM) ;RESPONSE IS FINISHED 

SKIPE JOB MS NULL JOB RUNNING? 

POPJ POP, ;no 

JRST ST0P2 ;YES, RESCHEDULE 



;I0 WAIT SATISFIED? 

;YES 

;SET TIME 



RUNCSS - RUN CONTROL SUBROUTINES 
T. HASTINGS 8-16-65 



PAGE 11 









02950 












02960 


, ROUTINES 


TO iNiATE A Wait for 








02970 




INTERNAL MTWAIT 


000200 


261140 


000002 


02980 


mtwait: 


PUSH PDP.TACl 


000201 


515100 


010000 


02990 




HRLZI TACl.MTW 


000202 


261140 


000001 


03000 


DVWAIT: 


PUSH POP, TAG 


000203 


200040 


000175' 


03010 




MOVE TAG, JOB 


000204 


436101 


000174' 


03020 




lORM TACl, JBTSTS(TAC) 


000205 


260140 


000112' 


03030 




PUSHJ PDP,ST0P2 


000206 


262140 


000001 


03040 




POP POP. TAG 


000207 


262140 


000002 


03050 




POP POP, TACl 


000210 


263140 


000000 


03060 
03070 




POPJ POP, 
INTERNAL DTWAIT 


000211 


261140 


000002 


03080 


dtwait: 


PUSH PDP,TAG1 


000212 


515100 


040000 


03090 




HRLZI TACl.OTW 


000213 


254000 


000202' 


03100 
03110 




JRST DVWAIT 
INTERNAL DCWAIT 


000214 


261140 


000002 


03120 


DCWAIT: 


PUSH POP, TACl 


000215 


515100 


020000 


03130 




HRLZI TACl.DGW 


000216 


254000 


000202' 


03140 
03150 




JRST DVWAIT 
INTERNAL DVWAIT 



DECTAPE, AND DaTa CONTROL AV 
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000217 
P)00220 
000221 
000222 
000223 
000224 
000225 
000226 
000227 



350000 
135040 
205100 
436101 
205100 
412101 
336000 
254000 
263140 



000172' 

000000 

400000 

000204' 

100000 

000222' 

000203' 

000112' 

000000 



03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 

03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 



DEC 06 00 EX JOB L PT PRE 
H.R. MORSE 64-12-26 
CALLING SEQUENCE 

PUSHJ POP. SETIOO 

EXIT 
SETS THE BIT ( I0WS:=1) IN 
INFORMING THE SYSTEM THAT 



12 SETIOD 



ALWAYS RETURNS HERE 

THE JOB STATUS WORD (JBTSTS) 

AN I/O WAIT HAS BEEN COMPLETED 



AND THE JOB IS READY TO RUN AGAIN 
MONITOR INTERFACE 

storage: 6 

SYMBOLS SET/USED: 

accumulators: DEVDAT I 

POP U 



TAC S/U 
TACl S/U 



DEVICE DATA BLOCK: DEVCHR U 
SYSTEM DATA STORAGE: JBTSTS S/U 
JOB STATUS word: IOWS S 
INTERN SETIOD 

SETIOD: AOS IOCOMP 

LDB TACPJOBN 

MOVSI TACl, lows ;SET lO-WAlT SATISFIED BIT 

lORM TACl, JBTSTSCTAC) 

MOVSI TACl, JIOW 

ANOCAM TACl, JBTSTS(TAC) 

SKIPN JOB ;IS NULL 

JRST ST0P2 

POPJ POP, ; 



JCLEAR JOB lO-WAIT BIT 



JOB RUNNING 
;YES, FORCE 
RETURN 



CLOCK TO RE-SCHED 
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;SET CURRENT JOB AREA IN SYSTEM AREA 

INTERNAL SETUSR 

SETUSR: HRRI TACUSRLOl 

HRLI TACUSRLO 
SETZM USRLO 
BLT TACUSRHI 
MOVSI TACMJOBPD 
HRRI TACJOBPDL 
MOVEM TAC.USRPDP 
MOVE JDAT.JOBDAT 
HLR TAC, JOBSA(JDAT) 
HRRZM TAC, JOBFF(JDAT) 
POPJ POP, 









03460 








03470 








03480 








03490 








03500 


000230 


541040 


000000 


03510 


000231 


505040 


000000 


03520 


000232 


402000 


000231' 


03530 


000233 


251040 


000000 


03540 


000234 


205040 


000122' 


03550 


000235 


541040 


000123' 


03560 


000236 


202040 


000000 


03570 


000237 


200440 


000000 


03580 


000240 


544051 


000046' 


03590 


000241 


552051 


000000 


03600 


000242 


263140 


000000 


03610 
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03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 



DEC 06 00 EX COM L PT PRE 02 HAITI, WSYNC 
H.R. MORSE 64-12-26 
CALLING SEQUENCE 

PUSHJ POP, HAITI 

EXIT ALWAYS RETURNS HERE 

IF THE DEVICE IS INACTIVE (IOaCT=0), RETURNS TO EXIT. OTHERWISE, SET 

I0W:=1 AND ENTERS WAIT UNLESS lOACT BECOMES ZERO BEFORE THE 

JUMP IS MADE, IN WHICH CASE IT SETS IOw:=0 AND RETURNS TO EXIT. 

ON LEAVING THE WAIT STATE, RETURNS TO EXIT. 

THIS ROUTINE PREVENTS THE STATE IOACT=0 AND I0W=1 FROM OCCURING 

CALLING SEQUENCE 

PUSHJ POP. WSYNC 

EXIT ALWAYS RETURNS HERE 

SETS I0W:=1 AND ENTERS WAIT ROUTINE. RETURNS 
MONITOR INTERFACE 

storage: 

ROUTINES called: 

symbols set/used: 

accumulators: 

DEVICE DATA BLOCK 
10 STATUS word: 



TO EXIT WHEN IOACT»0. 



13 
WAIT 



DEVDAT U 
lOS S/U 
DEVIOS S/U 
lOACT U 
low S/U 



POP 
TAC 



U 
S/U 



RUNCSS - RUN CONTROL SUBROUTINES 
T. HASTINGS 8-16-65 



PAGE 15 



000243 
000244 
000245 
000246 
000247 



000250 
000251 
000252 
000253 
000254 
000255 
000256 
000257 
000260 
000261 
000262 

000263 
000264 



200006 
606000 
263140 
260140 
254000 



205000 
205640 
200700 
201740 
700600 
6167^6 
254000 
436006 
436656 
700600 
260140 

700600 
413006 



000002 

010000 

000000 

000250' 

000243' 



000001 

100000 

000225' 

010000 

000400 

000002 

000263' 

000002 

000224 ' 

000200 

000112' 

000200 
000002 



03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 

03950 
03960 
03970 
03980 
03990 
04000 
04010 
04020 
04030 
04040 
04050 
04060 
04070 
04080 

04090 
04100 
04110 
04120 
04130 
04140 
04150 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 



INTERN WAITI, WSYNC 

WAiTi Waits until device is completely inactive before returning 



WAITi: MOVE IOS,DEVIOS(DEVDAT) 
TRNN lOS, lOACT 
POPJ POP, ; 
PUSHJ PDP.WSYNC; 
JRST WAITI 



;IS DEVICE ACTIVE? (lOACTal?) 

RETURN 

WAIT 



JWSYNC IS CALLED TO WAIT UNTIL SETIOD IS CALLED BY 
;IE UNTIL CURRENT BUFFER ACTIVITY IS COMPLETED 
;DEVDAT MUST BE SET UP 

PION=200 
PIOFF=400 



INTERRUPT SERVICE 



WSYNC: REPEAT 0,< PUSH PDP, TAC 
PUSH PDP. TACl 
PUSH PDP, DAT> 

MOVSI IDS, low 

MOVSI ACl. JIOW 

MOVE AC2, JOB 

MOVEI AC3. lOACT 

CONO PI, PIOFF 

TDNN AC3, DEVIOS(DEVDAT) 

JRST WSYNCl 

lORM lOS, DEV!OS(DEVDAT) 

lORM ACl, JBTSTS(AC2) 

cono pi, pion 
pushj pdp, st0p2 

;return 

WSYNCi: CONO PI, PION 

ANDCAB lOS, DEVIOS(OEVDAT) 
REPEAT 0,< POP PDP, DAT 

POP PDP, TACl 

POP PDP, TAO 



JMUST THESE BE SAVED? 



;turn pi off 
;is the device 
;no 

;YES. set DEVICE 
;AND JOB lO-WAIT 

;turn pi ON 

;STOP this user BY FORCING 
WHEN lO-WAIT FINISHED 

;CLEAR DEVICE lO-WAIT BIT 



ACTIVE? 



lO-WAIT BIT 
BIT 



CL 



000265 263140 000000 

000266 331102 000001 

000267 000030 000030 



04260 
04270 
04280 



POPJ PDP, 
END, 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 00027( 
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A 

ACl 

AC? 

AC3 

AL 

APRCHL 

APRCHN 

ASSCON 

ASSPRG 

R 

BUFPNT 

BUFWRD 

CHIXIT 

CH2X1T 

CH3XIT 

CH4XIT 

CH5XIT 

CH6SAC 

CH6XIT 

CH7XIT 

CHNTAB 

CLOSB 

CLSIN 

CLSOUT 

CONTl 

C0NT2 

C0NT3 

C0NT4 

CONTM 

CONTU 

CRLF 

D 

OAT 

OCAVAL 

OCL 

DCREQ 

OCW 

DCWAIT 

DDI 

000 

DDTMEM 

ODTSYM 

OEN 

OEVAOR 

OEVBUF 

OEVCHR 

OEVCTR 

OEVDAT 

DEVIAD 

DEVIOS 

OEVLOG 

OEVMOD 

DEVNAM 

OEVOAD 

OEVPTR 



000000 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


000001 


INT 


000000 


EXT 


000000 


FXT 


400000 


INT 


P00000 


INT 


000014 


INT 


000012 


INT 


000013 


INT 


000021' 


EXT 


000022' 


EXT 


000023' 


EXT 


000024' 


EXT 


000025' 


EXT 


000000 


EXT 


000026' 


EXT 


000027' 


EXT 


000020' 




002000 


INT 


000002 


INT 


000001 


INT 


000152' 


INT 


000161' 




000165' 




000171' 




000136' 


INT 


000137' 


INT 


000032' 


EXT 


000017 


INT 


000005 


INT 


000160' 


EXT 


000001 


INT 


000157' 


EXT 


020000 


INT 


000214' 


INT 


000007 


INT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000005 


INT 


000004 


INT 


000000 


INT 


000010 


INT 


000010 


INT 
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DEVSER 

OGF 

DIN 

DLK 

DOU 

OR 

DRL 

OSI 

OSO 

DTAVAL 

DTREQ 

DTW 

DTWAIT 

DVAVAL 

DVCDR 

DVDIR 

DVOIRI 

OVIN 

DVLPT 

OVMTA 

DVOUT 

DVTTY 

DVWAIT 

ENTRB 

ESTOP 

EXIT 

EXMESS 

HOLD 

HOLDI 

HOLDIl 

HOLDSB 

I 

IB 

IBUFB 

INITB 

INPB 

10 

lOACT 

lOREG 

lORKTL 

lOCOMP 

lOCON 

lODEND 

lOOERR 

lODISC 

lOnOME 

lOOTER 

lOEND 

lOFST 

lOlMPM 

lOKILL 

lONRCK 

lOROEL 

lORELS 

lORET 



000003 
000012 
000003 
000005 
000002 
000016 
000000 
000011 
000010 
000164' 
000163' 
040000 
000211' 
000040 
100000 
000004 
400000 
000002 
040000 
000020 
000001 
000010 
000202' 
020000 
000034' 
000000' 
000005' 
000030' 
000012' 
000014' 
000032' 
000010 
000013 
200000 
400000 
010000 
000020 
010000 
000002 
040000 
000217' 
000040 
020000 
200000 
400000 
400000 
100000 
000040 
000004 
400000 
000007' 
000100 
000100 
,000037' 
000020 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
FXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 

INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
FXT 
INT 
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lOS 

lOSTRT 

lOUSE 

lOW 

lOWC 

lOWS 

ITEM 

JBEADR 

JBECTR 

JBEPTR 

JBTADR 

JBTSTS 

J8UF 

JDAT 

JERR 

J low 

JNA 

JOB 

JOBAC 

JOBADR 

JOBCDP 

JOBDAC 

JOBDAT 

JOBDDT 

JOBDHI 

JOBFF 

JORN 

JOBPC 

JORPDL 

JOBPDP 

JOBREL 

JOBSA 

JOBSYM 

LDRBLT 

LDRMES 

LOOKB 

MESPNT 

MJOBPD 

M0NJ08 

MTAVAL 

MTREO 

MTW 

MTWAIT 

OBUFB 

OUTPR 

POP 

PGADR 

PICHN 

PICLK 

PIOFE 

PION 

PJOBN 

PROG 

QUANTl 

RESET 



000000 


INT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000117' 


EXT 


000260' 


EXT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


000252' 


EXT 


000000 


EXT 


000000 


EXT 


000000 


EXT 


000146' 


EXT 


000237' 


EXT 


000055' 


EXT 


000147' 


EXT 


000241' 


EXT 


000000 


EXT 


000141' 


EXT 


000235' 


EXT 


000000 


EXT 


000000 


EXT 


000240' 


EXT 


000044' 


EXT 


000037' 


INT 


000064' 




040000 


INT 


000062' 


EXT 


000234' 


EXT 


000116' 


INT 


000170' 


EXT 


000167' 


EXT 


010000 


INT 


000200' 


INT 


100000 


INT 


004000 


INT 


000003 


INT 


000002 




000100 


INT 


000114' 


EXT 


000400 




000200 




000220' 


EXT 


000007 


INT 


000173' 


EXT 


000007' 


INT 
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RSCHED 

RUN 

RUNABL 

SCHEDE 

SETIOD 

SETRUN 

SETUSR 

STARTl 

START2 

STARTM 

STARTU 

STOP0 

STOPl 

ST0P2 

STOPA 

STOPU 

TAG 

TACl 

TEM 

TTYATC 

TTYFNU 

TTYSET 

TTYSTR 

TTYURC 

TTYUSE 

TTYUSR 

USRDDT 

USRHI 

USRLO 

USRLOl 

USRMOD 

USRPDP 

USRREL 

UUO 

UXIT 

WAITI 

WSYNC 

WSYNCl 



000020' 

200000 

204000 

000106 

000217 

000153 

000230 

000140 

000150 

000132 

000134 

000070 

000071 

000112 

000105 

000113 

000001 

000002 
000010 
020000 
000060 
000135 
000033 
000136 
010000 
000137 
000056 
000233 
000232 
000230 
010000 
000236 
000050 
000014 
000011 
000243 
000250 
000263 



EXT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 
INT 
INT 

EXT 
INT 
INT 
INT 
INT 
EXT 
EXT 
EXT 
EXT 
INT 
EXT 
EXT 
EXT 
EXT 
EXT 
INT 
EXT 
EXT 
INT 
EXT 
INT 
INT 



END OF ASSEMBLY 



